#获取台风路径的脚本，比较简单
#生成的kml文件在该脚本的同目录下可以找到
use LWP::Simple;
use Encode;

#最后的1214是台风的编号，这个可以在网上查到的，意思是12年第14号台风
#my $typhoon_num=1214;
#my $url='http://typhoon.weather.com.cn/data/typhoonFlash/'.$typhoon_num.'.xml';
#my $content=get($url);
#$content=encode('gbk',$content);

#print "download ok !\n";

$content='
<tfsj title="天秤(第14号，TEMBIN)" ztname="进入天秤专题" zturl="http://typhoon.weather.com.cn/tfzt/696072.shtml">
<tfProps y="2012" m="08" d="19" h="08" t="00" jd="124.7" wd="17.7" qy="998" fs="18" b7="180" b10="" fx="" sd="" fl="8"/>
<tfProps y="2012" m="08" d="19" h="11" t="00" jd="124.9" wd="17.7" qy="998" fs="18" b7="180" b10="" fx="" sd="" fl="8"/>
<tfProps y="2012" m="08" d="19" h="14" t="00" jd="124.9" wd="17.6" qy="995" fs="20" b7="180" b10="" fx="" sd="" fl="8"/>
<tfProps y="2012" m="08" d="19" h="17" t="00" jd="124.9" wd="17.5" qy="990" fs="23" b7="180" b10="" fx="" sd="" fl="9"/>
<tfProps y="2012" m="08" d="19" h="20" t="00" jd="125" wd="17.8" qy="990" fs="23" b7="180" b10="" fx="" sd="" fl="9"/>
<tfProps y="2012" m="08" d="19" h="23" t="00" jd="124.8" wd="17.7" qy="990" fs="23" b7="180" b10="" fx="" sd="" fl="9"/>
<tfProps y="2012" m="08" d="20" h="02" t="00" jd="124.7" wd="17.6" qy="985" fs="25" b7="180" b10="50" fx="" sd="" fl="10"/>
<tfProps y="2012" m="08" d="20" h="05" t="00" jd="124.8" wd="17.9" qy="975" fs="33" b7="180" b10="50" fx="" sd="" fl="12"/>
<tfProps y="2012" m="08" d="20" h="08" t="00" jd="124.8" wd="18" qy="975" fs="33" b7="180" b10="50" fx="" sd="" fl="12"/>
<tfProps y="2012" m="08" d="20" h="11" t="00" jd="124.8" wd="18" qy="960" fs="40" b7="200" b10="80" fx="" sd="" fl="13"/>
<tfProps y="2012" m="08" d="20" h="14" t="00" jd="125" wd="18.4" qy="950" fs="45" b7="230" b10="90" fx="" sd="" fl="14"/>
<tfProps y="2012" m="08" d="20" h="17" t="00" jd="125.1" wd="18.7" qy="950" fs="45" b7="230" b10="90" fx="" sd="" fl="14"/>
<tfProps y="2012" m="08" d="20" h="20" t="00" jd="125.1" wd="18.9" qy="945" fs="48" b7="250" b10="100" fx="" sd="" fl="15"/>
';

#print $content;

while ($content=~/jd\=\"(\d*\.*\d*)\" wd\=\"(\d*\.*\d*)\"/gc) {
	print $1.",".$2.",0\n";
}														


print 123;

